function adjcost = cost(adjtype, menucost, noise, relentropy)
% Returns adjustment cost to be subtracted from profit flow
% "cost" refers to COST OF PRICE ADJUSTMENT: menu or information cost for choosing p.

switch adjtype
    case {2,5,6,7}   % Calvo, SSDP, PPS, Wood-ent
      adjcost = 0;       % Wood-ent has an entropy cost, but it is not the cost of choosing p:
                         %  It is instead the cost of choosing whether to adjust (which is calculated elsewhere).
    case {3,4}               % FMC, Wood-log 
      adjcost = menucost;                               
end  
     

